<script>on mouseUpget commconnect ("send",cd fld tosend & return)put it into cd fld resultwait 2 secondsget commconnect ("receive")put it into cd fld resultend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>16</left>
<top>62</top>
<right>117</right>
<bottom>88</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Update</name>
<script>on mouseUpget commconnect ("receive")put it after cd fld resultend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>170</left>
<top>59</top>
<right>312</right>
<bottom>91</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Config</name>
<script>on mouseUpget CommConnect ("change connection settings",cd fld "savedSettings")put it after cd fld resultend mouseUp</script>
<script>on mouseUpif the optionkey is down thenplay certainanswer "Do you REALLY want to delete ALL history listings?" with "Nope" or "Yessir"if it ≠ "Nope" thenput "No History" into cd fld id 4put "Data Erased" into cd fld id 8 of cd id 3029end ifelseplay certainanswer "Are you sure you want to delete this listing?" with "No" or "OK"if it ≠ "No" thendelete the selectedline of cd fld id 4end ifend ifend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>7</left>
<top>203</top>
<right>160</right>
<bottom>232</bottom>
</rect>
<style>opaque</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Brush Script MT</font>
<textSize>24</textSize>
<textStyle>plain</textStyle>
<name>Return</name>
<script>on mouseUpgo to cd id 3029end mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>7</left>
<top>49</top>
<right>313</right>
<bottom>197</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <true /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <true /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<selectedLines>
<integer>7</integer>
</selectedLines>
<textAlign>left</textAlign>
<font>TektoMM_240 RG 564 NO</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>21</left>
<top>11</top>
<right>298</right>
<bottom>40</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Impact</font>
<textSize>24</textSize>
<textStyle>italic</textStyle>
<textHeight>32</textHeight>
<name>Silo Studios</name>
<script>on mousedownwait until the mouse is upplay "about phone"go to cd id 4376wait 14 secondsgo to cd id 3794end mousedown</script>
</part>
<content>
<layer>card</layer>
<id>5</id>
<text>Bubblephone‚Ñ¢ 2000</text>
</content>
<content>
<layer>card</layer>
<id>1</id>
<text></text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>Bleedy Smack Filled Anus</text>
</content>
<content>
<layer>card</layer>
<id>4</id>
<text>No History</text>
</content>
<name></name>
<script>on idleglobal oldml,elapif the optionkey is down thenset the name of cd button id 2 to "Delete All"elseset the name of cd button id 2 to "Delete Listing"end ifif oldml ≠ the MouseLoc thenput the MouseLoc into oldmlput the ticks into elapelseif the ticks - elap > 800 thengo to first cardend ifend ifend idleon openCardglobal elapput the ticks into elappass openCardend openCard</script>
</card>
card_3029.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on stoppedTalkingrepeat until bob contains "No"vocalise "are you speaking"put the result into bobend repeatend stoppedTalkingon idleglobal pissedoff,lastring,terminal,mostrecent,toadd,lastname,ringstoday,oldterminal,ringstotalif pissedoff < 1 thenif pissedoff > 4 thenput 1 into pissedoffend ifend ifif the ticks - lastring > 1500 thenput "Standing By..." into cd fld id 4 of cd id 3029end ifif the ticks - lastring > 37000 thenif pissedoff > 1 thenput pissedoff - 1 into pissedoffput the ticks into lastringelseput 1 into pissedoffend ifend ifwait 5 ticks-- Pick up Modem dataget CommConnect ("receive")put it after terminalif terminal contains "unable to get status of connection" thenput "" into terminalvocalise "speak","The modem is no longer responding. Please restart Bubbel Phone when you are done with the modem."repeat until bob contains "No"vocalise "are you speaking"put the result into bobend repeatdomenu "Quit Hypercard"end ifif terminal contains "RING" thenput "Incoming Call!" into cd fld id 4 of cd id 3029if the sound is "done" thenif pissedoff = 1 thenplay "phone 1"end ifif pissedoff = 2 thenplay "phone 2"end ifif pissedoff = 3 thenplay "phone 3"end ifif pissedoff = 4 thenplay "phone 4"put "FUCK THIS SHIT!" into cd fld id 4 of cd id 3029end ifif pissedoff ≠ 4 thenput pissedoff + 1 into pissedoffend ifend ifput the ticks into lastringif terminal contains "NMBR =" or terminal contains "MESG =" thenelseput "" into terminalend ifend ifif terminal contains "NMBR =" or terminal contains "MESG =" thenput "A Winner!" into cd fld id 4 of cd id 3029put terminal into mostrecentput the ticks into lastringput mostrecent into cd fld id 2 of last cdput "" into terminalParseIncomingput lastname into toaddconvertCasedoRingput ringstoday + 1 into ringstodayput ringstotal + 1 into ringstotalput ringstoday & " this session, "& ringstotal &" total." into cd fld id 12 of cd id 3029addNameget commConnect ("receive")put it into terminalput "" into terminalput "" into oldterminalend ifend idleon ParseIncomingglobal mostrecent,lastdate,lasttime,lastname,lastnmbr,abc,terminalput "" into lastnameput the number of lines of mostrecent into abcrepeat until line abc of mostrecent contains "NMBR"put abc - 1 into abcend repeatput the last word of line abc of mostrecent into lastnmbrput the number of words in line (abc - 1) of mostrecent into namewordrepeat until word (nameword) of line (abc - 1) of mostrecent = "="put word nameword of line (abc - 1) of mostrecent & " " after lastnameput nameword - 1 into namewordend repeatput the last word of line (abc - 2) of mostrecent into lasttimeput the last word of line (abc - 3) of mostrecent into lastdateput "" into terminalif lastname = "080150" then put "An Unlisted Caller " into lastnameif lastname contains "08014F" then put "Who the hell knows who " into lastnameif lastname contains "Univ St Ia" then put "Iowa State University" into lastnameif lastnmbr contains "51523213" then put "Some Shhmuck from I S U" into lastnameend ParseIncomingon colorMeAddColor colorCard,rakeVertClose,30end colorMe</script>
